home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00028_ClearEvents.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  1.8 KB  |  87 lines
  1. --
  2. -- ClearEvents
  3. --
  4.  
  5. property ancestor
  6. property okayFlag
  7.  
  8. property gWinEventsQ
  9.  
  10. on new me
  11.   -- set constants:
  12.   
  13.   -- initialize the ancestor:
  14.   set ancestor = new (script "XTools")
  15.   
  16.   -- do other initializations:
  17.   set okayFlag = 0
  18.   
  19.   if the machineType <> 256 then
  20.     -- we are on a mac
  21.     
  22.     -- look for the open x library
  23.     -- if not(xtraExists(ancestor, "flush")) then
  24.     -- alert "The mac event flushing routines are not available..."
  25.     -- else
  26.     
  27.     -- set the ok flag
  28.     set okayFlag = 1
  29.     -- end if
  30.     
  31.   else
  32.     -- we are on a PC
  33.     
  34.     if not(xtraExists(ancestor, "event")) then
  35.       alert "The PC event flushing routines are not available..."
  36.     else
  37.       
  38.       -- set the okay flag
  39.       if not objectP(gWinEventsQ) then
  40.         --        openXLib the pathname & "EVENTQ.DLL"
  41.         --        set gWinEventsQ = EventQ (mNew)
  42.         --JCODE
  43.         set okayFlag = 1
  44.       end if
  45.       
  46.     end if
  47.   end if
  48.   
  49.   return me
  50. end
  51.  
  52. on destruct me
  53.   --JCODE  if objectP (gWinEventsQ) then gWinEventsQ (mDispose)
  54.   set gWinEventsQ = 0
  55.   if objectP (ancestor) then destruct (ancestor)
  56.   set ancestor = 0
  57. end
  58.  
  59. -- this starts the event capture buffer for windows
  60. on startBuffer me
  61.   if not okayFlag then return
  62.   
  63.   if the machineType = 256 then
  64.     -- Greg Yachuk's XObject from MediaBook CD
  65.     --JCODE  if objectP (gWinEventsQ) then gWinEventsQ (mBufferEvents)
  66.   end if
  67. end
  68.  
  69.  
  70. -- this actually will clear the events, given the library is open, and the object is there
  71. on clearEvents me
  72.   if not okayFlag then return
  73.   
  74.   
  75.   if the machineType = 256 then
  76.     
  77.     -- Greg Yachuk's XObject from MediaBook CD
  78.     --JCODE  if objectP (gWinEventsQ) then gWinEventsQ(mFlushEvents)      
  79.     
  80.   else
  81.     
  82.     -- Geoff Smith's Xtra
  83.     --JCODE  global gDebug
  84.     --JCODE  if not gDebug then FlushAllEvents
  85.   end if
  86.   
  87. end